10 H = 279:V = 191: HGR : HCOLOR= 3: PRINT CHR$(4)"PR#4": PRINT CHR$(1): PRINT : PRINT CHR$(4)"IN#4": PRINT CHR$(4)"PR#0": FOR N = 768 TO 772: READ D: POKE N,D: NEXT : POKE 232,0: POKE 233,3: SCALE= 1: POKE -16302,0: DATA 1,0,4,0,4,0
20 FOR X = 4 TO 3 STEP -1: INPUT A,B,C:X = C: XDRAW 1 AT A,B: XDRAW 1 AT A,B: NEXT :Q = A:R = B: FOR Y = 3 TO 4: INPUT A,B,C:Y = C: HPLOT Q,R TO A,B: HPLOT H -Q,R TO H -A,B: HPLOT H -Q,V -R TO H -A,V -B: HPLOT Q,V -R TO A,V -B:Q = A:R = B: NEXT : GOTO 20